home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1297.dms / var1297.adf / Rexx / EP_Quit.dopus < prev    next >
Text File  |  1993-06-30  |  258b  |  15 lines
  1. /* Eagleplayeransteuerung über Diropus (Quit)
  2.    (c) 1993 DEFECT
  3. */
  4. if (pos('rexx_EP',SHOW('Ports')) = 0) then 
  5.  do
  6.   address 'DOPUS.1'
  7.   toptext 'Eagleplayer not found'
  8.   exit
  9.  end
  10. address 'rexx_EP'
  11. quit
  12. address 'DOPUS.1'
  13. toptext 'Eagleplayer quitted'
  14. exit
  15.